home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Plus 1995 #5 & #6
/
Amiga Plus CD - 1995 - No. 5 and 6.iso
/
pd
/
serien
/
purity
/
nr.46
/
pcq-crt
/
crt.i
< prev
next >
Wrap
Text File
|
1995-04-18
|
937b
|
55 lines
{ Crt.i for PCQ-Pascal Copyright © 1995 by Andreas Tetzl }
{ Version 1.0 (15.04.1995) }
const TS_Plain = 0;
TS_Bold = 1;
TS_Italics = 3;
TS_Underline = 4;
PROCEDURE Locate(Zeile, Spalte : Byte);
External;
PROCEDURE ClrScr;
External;
PROCEDURE CursorOff;
External;
PROCEDURE CursorOn;
External;
PROCEDURE Bell;
External;
PROCEDURE MoveCursorUp(n : Byte);
External;
PROCEDURE MoveCursorDown(n : Byte);
External;
PROCEDURE MoveCursorLeft(n : Byte);
External;
PROCEDURE MoveCursorRight(n : Byte);
External;
PROCEDURE ResetConsole;
External;
PROCEDURE SetTextStyle(Style, fCol, bCol : Byte);
External;
PROCEDURE GetConSize(VAR Zeilen : Integer; VAR Spalten : Integer);
External;
PROCEDURE HorizTxtLine(x, y, w : Integer; c : Char);
External;
PROCEDURE TxtLine(x1, y1, x2, y2 : Integer; c : Char);
External;
PROCEDURE TxtRectFill(x, y, w, h : Integer; c : Char);
External;